home *** CD-ROM | disk | FTP | other *** search
/ Collection of Internet / Collection of Internet.iso / msdos / lynx / source / doslynx / src / tdoslyn9.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-25  |  3.9 KB  |  113 lines
  1. //    Copyright (c) 1993, University of Kansas, All Rights Reserved
  2. //
  3. //    Class:        TDosLynx : public TApplication
  4. //    Include File:    TDosLynx.h
  5. //    Purpose:    Implement our application object.
  6. //    Remarks/Portability/Dependencies/Restrictions:
  7. //    Revision History:
  8. //        12-09-93    created
  9. //        02-09-04    Split all members to seperate files to enhance
  10. //                overlay support.
  11. #define Uses_TSubMenu
  12. #define Uses_TMenuItem
  13. #define Uses_TKeys
  14. #include"tdoslynx.h"
  15. #include"globals.h"
  16.  
  17. TMenuBar *TDosLynx::initMenuBar(TRect TR_r)    {
  18. //    Purpose:    Initialize the menu bar.
  19. //    Arguments:    TR_r    Dimensions of the menu.
  20. //    Return Value:    TMenuBar *    the new menu created.
  21. //    Remarks/Portability/Dependencies/Restrictions:
  22. //    Revision History:
  23. //        12-10-93    created
  24.  
  25.     //    Set bottom line one below from top
  26.     TR_r.b.y = TR_r.a.y + 1;
  27.     TSubMenu& TSM_File =
  28.         *new TSubMenu("~F~ile", kbAltF, hcNoContext) +
  29.         *new TMenuItem("~O~pen URL...", cmOpenURL, kbF3, hcNoContext,
  30.             "F3") +
  31.         *new TMenuItem("Open ~L~ocal...", cmOpenLocal, kbNoKey,
  32.             hcNoContext) +
  33.         *new TMenuItem("~C~lose", cmClose, kbAltF3, hcNoContext,
  34.             "Alt-F3") +
  35.         newLine() +
  36.         *new TMenuItem("~S~ave Rendering...", cmSaveDLX, kbF2,
  37.             hcNoContext, "F2") +
  38.         *new TMenuItem("~P~rint Rendering...", cmPrint, kbNoKey,
  39.             hcNoContext, NULL) +
  40.         newLine() +
  41.         *new TMenuItem("~D~os Shell", cmDosShell, kbNoKey,
  42.             hcNoContext) +
  43.         *new TMenuItem("E~x~it", cmQuit, kbAltX, hcNoContext,
  44.             "Alt-X");
  45.     TSubMenu& TSM_Navigate =
  46.         *new TSubMenu("~N~avigate", kbAltN, hcNoContext) +
  47.         *new TMenuItem("~F~ind...", cmSearch, kbNoKey, hcNoContext,
  48.             NULL) +
  49.         *new TMenuItem("Find ~A~gain", cmSearchAgainDLX, kbF4,
  50.             hcNoContext, "F4") +
  51.         newLine() +
  52.         *new TMenuItem("~N~ext Anchor", cmNextAnchor, kbNoKey,
  53.             hcNoContext, "J, 2") +
  54.         *new TMenuItem("~P~revious Anchor", cmPreviousAnchor,
  55.             kbNoKey, hcNoContext, "K, 8") +
  56.         newLine() +
  57.         *new TMenuItem("~A~ctivate Anchor", cmSelectAnchor, kbNoKey,
  58.             hcNoContext, "L, 6") +
  59.         *new TMenuItem("Prior ~D~ocument", cmPreviousDocument,
  60.             kbNoKey, hcNoContext, "H, 4") +
  61.         newLine() +
  62.         *new TMenuItem("Search ~I~ndex...", cmSearchIndex, kbF7,
  63.             hcNoContext, "F7") +
  64.         newLine() +
  65.         *new TMenuItem("Show Destination ~U~RL", cmShowDestination,
  66.             kbNoKey, NULL);
  67.     TSubMenu& TSM_Options =
  68.         *new TSubMenu("~O~ptions", kbAltO, hcNoContext) +
  69.         *new TMenuItem("~T~oggle Low/High Text Mode", cmVideoMode, kbNoKey,
  70.             hcNoContext)
  71. #ifndef RELEASE
  72.         +
  73.         newLine() +
  74.         *new TMenuItem("Trace DOSLYNX", cmTraceDOSLYNX, kbNoKey,
  75.             hcNoContext) +
  76.         *new TMenuItem("Trace WWW", cmTraceWWW, kbNoKey,
  77.             hcNoContext) +
  78.         *new TMenuItem("Trace WATTCP", cmTraceWATTCP, kbNoKey,
  79.             hcNoContext)
  80. #endif // RELEASE
  81.         ;
  82.     TSubMenu& TSM_Window =
  83.         *new TSubMenu("~W~indow", kbAltW, hcNoContext) +
  84.         *new TMenuItem("~M~essages", cmUnHideMessage, kbNoKey,
  85.             hcNoContext) +
  86.         newLine() +
  87.         *new TMenuItem("C~l~one Window", cmCloneWindow, kbNoKey,
  88.             hcNoContext, NULL) +
  89.         newLine() +
  90.         *new TMenuItem("~Z~oom", cmZoom, kbF5, hcNoContext, "F5") +
  91.         *new TMenuItem("~R~esize", cmResize, kbAltF5, hcNoContext,
  92.             "Alt-F5") +
  93.         *new TMenuItem("~C~ascade", cmCascade, kbNoKey, hcNoContext) +
  94.         *new TMenuItem("~T~ile", cmTile, kbNoKey, hcNoContext);
  95.     TSubMenu& TSM_HotList =
  96.         *new TSubMenu("~H~otlist", kbAltH, hcNoContext) +
  97.         *new TMenuItem("~V~iew...", cmHotList, kbF1, hcNoContext,
  98.             "F1")    +
  99.         *new TMenuItem("~A~dd Current To Hotlist", cmAddToHotList,
  100.             kbNoKey, hcNoContext, NULL) +
  101.         newLine() +
  102.         *new TMenuItem("Home ~P~age", cmHomePage, kbF9,
  103.             hcNoContext, "F9");
  104.     TSubMenu& TSM_Help =
  105.         *new TSubMenu("Help", kbNoKey, hcNoContext) +
  106.         *new TMenuItem("~A~bout DosLynx", cmAboutDosLynx, kbNoKey,
  107.             hcNoContext) +
  108.         *new TMenuItem("~M~ail Developer", cmMailDeveloper, kbNoKey,
  109.             hcNoContext);
  110.     return(new TMenuBar(TR_r, TSM_File + TSM_Navigate + TSM_Options +
  111.         TSM_Window + TSM_HotList + TSM_Help));
  112. }
  113.